Imports DAO
Imports DTO

Public Class LoaiPhong_Bus

    Inherits AbstractBUS

    Public Function LayBang() As DataTable

        'Kiem tra Business Rule neu co
        Dim dt As DataTable
        Dim lpDao As New LoaiPhong_Dao()
        dt = lpDao.LayBang()
        Return dt

    End Function

    Public Function LayDanhSach() As IList

        'Kiem tra Business Rule neu co
        Dim ds As IList
        Dim lpDao As New LoaiPhong_Dao()
        ds = lpDao.LayDanhSach()
        Return ds

    End Function

    Public Sub CapNhatBang(ByVal dt As DataTable)

        'Kiem tra Business Rule neu co
        Dim lpDao As New LoaiPhong_Dao()
        lpDao.CapNhatBang(dt)

    End Sub

    Public Function TimKiem(ByVal mlp As Integer) As LoaiPhong_Dto

        'Kiem tra Business Rule neu co
        Dim lpDto As LoaiPhong_Dto
        Dim lpDao As New LoaiPhong_Dao()
        lpDto = lpDao.TimKiemLoaiPHG(mlp)
        Return lpDto

    End Function

    Public Sub Them(ByVal lpDto As LoaiPhong_Dto)

        'Kiem tra Business Rule neu co
        Dim lpDao As New LoaiPhong_Dao()
        lpDao.Them(lpDto)

    End Sub

    Public Sub Xoa(ByVal mlp As Integer)

        'Kiem tra Business Rule neu co
        Dim lpDao As New LoaiPhong_Dao()
        lpDao.Xoa(mlp)

    End Sub

    Public Sub Sua(ByVal lpDto As LoaiPhong_Dto)

        'Kiem tra Business Rule neu co
        Dim lpDao As New LoaiPhong_Dao()
        lpDao.Sua(lpDto)

    End Sub

End Class
